home *** CD-ROM | disk | FTP | other *** search
/ Thailand - Into the 2000's / Thailand: Into the 2000's.iso / Xtras / PrintOMatic / PrintOMatic Xtra / -PMatic.dir / 00015_Script_movie script < prev    next >
Text File  |  2000-02-24  |  980b  |  35 lines
  1. on startMovie
  2.   global gPropFont,gMonoFont,gCanPrint
  3.   
  4.   -- set up global variables for standard proportional and monospaced fonts
  5.   
  6.   if the machineType = 256 then
  7.     -- we're running in windows!
  8.     put "arial" into gPropFont
  9.     put "courier new" into gMonoFont
  10.   else
  11.     put "helvetica" into gPropFont
  12.     put "courier" into gMonoFont
  13.   end if
  14.   
  15.   if isXtraInstalled("printomatic") then 
  16.     set gCanPrint = true 
  17.   else 
  18.     set gCanPrint = false
  19.      alert "The PrintOMatic Xtra is not installed; printing is disabled."&return&return&"Please consult the Read Me file in the PrintOMatic folder for information on how to install PrintOMatic."
  20.    end if
  21. end
  22.  
  23. on isXtraInstalled xtraName
  24.   if not stringP(xtraName) then
  25.     alert "isXtraInstalled() requires an Xtra name to work".
  26.     return false
  27.   end if
  28.   repeat with i = 1 to the number of xtras
  29.     if the name of xtra i = xtraName then return true
  30.   end repeat
  31.   return false
  32. end 
  33.  
  34.  
  35.